  10 clear ;BC=4;FC=80;&(0)=4;&(1)=4;&(2)=0;&(3)=0;&(9)=16;NT=0;print ;print ;print "   CHECKERS";goto 990
  20 R=U;Q=-1;X=11;U=89;T=-1;V=8;A=12
  30 next Q;next X
  40 next U;next V;if T<0goto 840
  50 gosub 955;print " GAME OVER";if KPrun 
  60 BC=131;for U=Ato 89;if @(U)<4goto 70;A=U;U=89
  70 next U;for V=1to 8;for U=Ato 89;if @(U)<4goto 40
  80 for X=9to 11step 2;for Q=1to -1step -2;if @(U)=4Q=-1
  85 B=Qmul X;S=U+B;if @(S)=0goto 30
  90 if V>2if @(S)#3goto 30
  95 C=B+B;F=Qmul 20;Z=Vmul 100;goto Z
 100 if @(U+C)#3goto 30
 200 if @(S)>2goto 30
 220 if V=1 S=U+C;goto 20
 230 S=U-B;if @(S)#3goto 30
 235 if @(U-C+F)=2goto 260
 240 if @(U-F)>3 U=U-F;goto 20
 250 if @(U-C)>3 U=U-C;goto 20
 260 S=U-B+F;if @(S)=3 J=1
 290 goto 30
 300 if @(S-F)#1goto 30
 310 if @(S)=3goto 20
 320 S=S-2mul (X-10);if @(S)=3goto 20
 330 goto 30
 400 if @(U+C)=0if @(U)=4goto 20
 410 goto 30
 500 L=1
 600 L=1;if @(U+C)<3goto 30
 610 if @(U+F)<3if @(U+C-F)=3goto 30
 620 if @(U+F)=3if @(U+C-F)=1return 
 625 if V=5goto 700
 630 L=L+1;D=@(U+Lmul B);if (D=0)+(D>3)goto 30
 650 if L#2if D<3goto 20
 660 goto 630
 700 if @(U)=5goto 30
 800 goto 20
 810 BC=155;NT=1;CY=40;print " YOUR TURN";NT=0;print ;print " FROM";gosub 950;R=I;print ;print " to ";gosub 950;box -47,0,66,88,2;S=I
 820 if (@(R)>2)+(@(R)=0)+(@(S)#3)goto 810
 830 if @(R)#1if R>Sgoto 810
 840 if ((S-R)mul (S-R))<122goto 925
 850 if T>0if @((S+R)div 2)<4goto 810
 860 J=T;@(S)=@(R);@((S+R)div 2)=3;@(R)=3
 870 for X=9to 11step 2;G=S+Jmul X;if (@(G)=3+T)+(@(G)=3+T+T)goto 890
 880 goto 910
 890 G=S+2mul Jmul X;if @(G)#3goto 910
 900 R=S;S=G;X=11;next X;goto 860
 910 next X;if (ABS(@(S)-3))=2if J=T J=-T;goto 870
 920 gosub 955;goto 930
 925 @(S)=@(R);@(R)=3;I=R;gosub 970;I=S;gosub 970
 930 if T>0if S>80@(S)=1
 935 if T<0if S<20@(S)=5
 940 if T>0goto 60
 945 T=1;goto 810
 950 input " ROW:"M;input " COLUMN:"N;I=Mmul 10+N+1;return 
 955 clear ;for I=1to 8;NT=8;CX=-6+Imul 10;CY=40;print #1,I;next I;for I=1to 8;CX=-6;CY=-49+Imul 10;print #1,I;next I
 960 for I=12to 89;if @(I)#0gosub 970
 965 next I;return 
 970 M=-17+(I-(Idiv 10)mul 10)mul 10;N=-49+(Idiv 10)mul 10;box M,N,10,10,1;if @(I)#3 J=ABS(@(I)-3)mul 3;box M,N,8,J,3
 980 if @(I)>3box M,N,6,J-2,3
 985 return 
 990 for I=1to 100;@(I)=0;next I;for I=12to 18step 2;@(I)=2;@(I+11)=2;@(I+20)=2;@(I+31)=3;@(I+40)=3
 995 @(I+51)=4;@(I+60)=4;@(I+71)=4;next I;A=67;gosub 955;goto 60
>:return 
